#lang rosetta-racket


(require "test-points.rkt")

(provide test-point-1-example
         test-point-2-example
         test-point-coordinates-example)


(define (test-point-1-example)
  (view-ortho-top (test-point 1 2 3)))

(define (test-point-2-example)
  (view-ortho-top (test-point (xyz 4 5 6))))

(define (test-point-coordinates-example)
  (test-point-coordinates (xyz 7 8 9)))